home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)sdg.d64
/
border 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
234b
|
12 lines
3 FOR J =11 TO 1 STEP-2:POKE53280,J+1:POKE53281,J-1
5 PRINT"[147]"
10 FOR X=1TO39:PRINT"*";:GOSUB60:NEXTX
20 FOR X=1TO23:PRINT"[157]*":GOSUB60:NEXTX
30 FOR X=1TO39:PRINT"[157]*[157]";:GOSUB60:NEXTX
40 FOR X=1TO23:PRINT"[157]*[145]";:GOSUB60:NEXTX
45 NEXTJ
50 GETA$:IFA$=""THEN50
55 POKE53280,6:POKE53281,6:END
60 FORY=1TO100:NEXTY
70 RETURN